#!/usr/bin/perl
use utf8;

#chomp( $madonna = <STDIN> );
$madonna = undef;
if ( defined($madonna) ) {
	print "The input was $madonna";
} else {
	print "No input available!\n";
}